Program enrComptes;

Uses Types;

Procedure enrCompte(compte : Tcompte; VAR tabcompte : TTabCompte);	
	//VAR
		//choix: Boolean;

	//On appelle l'enregistrement dans la fonction qui crée ou modifie un compte
	BEGIN		
		//WRITE('Voulez-vous enregistrer le compte; o / n : ');
		//READ(choix);
		//IF(choix = true) THEN
			tabcompte.compteclient[tabcompte.nbcompte+1]:=compte;	//Si l'utilisateur valide l'enregistrement les infos dans la var compte sont transmise dans notre tabcompte 
			tabcompte.nbcompte:=tabcompte.nbcompte+1;			 	//nbelement augmente de 1 avec ce nouvel enregistrement
		//END;
	END;
	
	
Begin


End.
